home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / tilt11.sit / Tilt 1.1 / card_6707.txt < prev    next >
Text File  |  1988-11-14  |  6KB  |  185 lines
  1. -- card: 6707 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 4104
  5. -- name: WinOrLose
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global oppThudScore
  9.   global turn
  10.   global oppCrestScore
  11.   global yourCrestScore
  12.   global oppGoneFlag
  13.   global youGoneFlag
  14.   global youGoThud
  15.   global oppGoesThud
  16.   global oppLanceWin
  17.   global youLanceWin
  18.   global youFinalVictory
  19.   global oppFinalVictory
  20.   global horseTie
  21.   global lanceTie
  22.   global endIt
  23.  
  24.   If youGoThud = 1 and oppGoesThud = 1 then
  25.     put 1 into horseTie
  26.     put 0 into oppGoesThud
  27.     put 0 into youGoThud
  28.   end if
  29.  
  30.   if youLanceWin = 1 and oppLanceWin = 1 then
  31.     put 1 into lanceTie
  32.     put 0 into youLanceWin
  33.     put 0 into oppLanceWin
  34.   end if
  35.  
  36.  
  37.   -- EXPULSION FROM TOURNEY
  38.   If youGoneFlag = 1 then
  39.     put "       YOU HIT A HORSE?!" into line 3 of field 1
  40.     put "The judges believe that to be"into line 5 of field 1
  41.     put "   the worst foul a knight" into line 6 of field 1
  42.     put "  can commit! Sorry, but they" into line 7 of field 1
  43.     put "are sending you Home in disgrace." into line 8 of field 1
  44.     put 1 into endIt
  45.   end if
  46.   If oppGoneFlag = 1 then
  47.     put "     YOUR OPPONENT HIT HORSE!" into line 3 of field 1
  48.     put "   The judges award you victory" into line 5 of field 1
  49.     put "   over the dishonorable knight!" into line 6 of field 1
  50.     put "     Because you are a gallant" into line 7 of field 1
  51.     put "     knight you ask the judges" into line 8 of field 1
  52.     put "      not to send your rival" into line 9 of field 1
  53.     put "        home in disgrace!" into line 10 of field 1
  54.     add 1 to youFinalVictory
  55.   end if
  56.  
  57.   -- WINS BY UNHORSING
  58.   If oppGoesThud = 1 and oppGoneFlag <> 1 and youGoneFlag <> 1 and horseTie <> 1 then
  59.     put "   YOUR RIVAL HAS FALLEN!" into line 3 of field 1
  60.     put "The judges score you a win in" into line 5 of field 1
  61.     put "this round and look upon you" into line 6 of field 1
  62.     put "with great honor and worship." into line 7 of field 1
  63.     add 1 to youFinalVictory
  64.   end if
  65.   If youGoThud = 1 and oppGoneFlag <> 1 and youGoneFlag <> 1 and horseTie <> 1 then
  66.     put " YOU HAVE BEEN UNHORSED!" into line 3 of field 1
  67.     put "Your shameful face is as red" into line 5 of field 1
  68.     put "as those nether regions which" into line 6 of field 1
  69.     put "your plate thankfully covers." into line 7 of field 1
  70.     add 1 to oppFinalVictory
  71.   end if
  72.  
  73.   If horseTie = 1 and oppGoneFlag <> 1 and youGoneFlag <> 1 then
  74.     put "YOU HAVE UNHORSED EACH" into line 3 of field 1
  75.     put "        OTHER!" into line 4 of field 1
  76.     put "Thus ends this passage d'armes" into line 5 of field 1
  77.     put "but recall that crests and" into line 6 of field 1
  78.     put "unhorsings as well as lances" into line 7 of field 1
  79.     put "decide the Tournament winner." into line 8 of field 1
  80.     add 1 to youFinalVictory
  81.     add 1 to oppFinalVictory
  82.   end if
  83.  
  84.   -- WINS BY 3-LANCE RULE
  85.   if youLanceWin = 1 and lanceTie <> 1 and horseTie<> 1 and oppGoneFlag <> 1 and youGoneFlag <> 1 and youGoThud <> 1 and oppGoesThud <> 1 then
  86.     put "      YOU HAVE BROKEN " into line 2 of field 1
  87.     put "       THREE LANCES!" into line 3 of field 1
  88.     put "  Your three broken lances" into line 5 of field 1
  89.     put "   give you a point for" into line 6 of field 1
  90.     put "  this round! But judges" into line 7 of field 1
  91.     put " remind you that unhorsings" into line 8 of field 1
  92.     put "and crests are higher points" into line 9 of field 1
  93.     put " for judging final victory." into line 10 of field 1
  94.     add 1 to youFinalVictory
  95.   end if
  96.   if oppLanceWin = 1 and lanceTie <> 1 and horseTie <> 1 and oppGoneFlag <> 1 and youGoneFlag <> 1 and youGoThud <> 1 and oppGoesThud <> 1 then
  97.     put "      YOUR RIVAL BREAKS" into line 2 of field 1
  98.     put "        THREE LANCES!" into line 3 of field 1
  99.     put "   His three lances broken in" into line 5 of field 1
  100.     put " this passage d'armes give your" into line 6 of field 1
  101.     put "opponent a point! But the judges" into line 7 of field 1
  102.     put " remind all that unhorsings and" into line 8 of field 1
  103.     put "   crests are higher points for" into line 9 of field 1
  104.     put "     judging final victory!" into line 10 of field 1
  105.     add 1 to oppFinalVictory
  106.   end if
  107.   If lanceTie = 1 and oppGoneFlag <> 1 and youGoneFlag <> 1 and youGoThud <> 1 and oppGoesThud <> 1 and horseTie <> 1 then
  108.     put "      YOU HAVE EACH" into line 3 of field 1
  109.     put "     BROKEN 3 LANCES!" into line 4 of field 1
  110.     put "Thus each receive their point" into line 5 of field 1
  111.     put " but recall that crests and" into line 6 of field 1
  112.     put "unhorsings as well as lances" into line 7 of field 1
  113.     put "decide the Tournament winner." into line 8 of field 1
  114.     add 1 to oppFinalVictory
  115.     add 1 to youFinalVictory
  116.   end if
  117.  
  118. end openCard
  119.  
  120.  
  121.  
  122. -- part 3 (button)
  123. -- low flags: 80
  124. -- high flags: A003
  125. -- rect: left=0 top=19 right=41 bottom=100
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Quit
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   doMenu "Quit Hypercard"
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 6 (button)
  142. -- low flags: 80
  143. -- high flags: A003
  144. -- rect: left=0 top=41 right=63 bottom=100
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: New Tourney
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   openStack
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 5 (button)
  161. -- low flags: 80
  162. -- high flags: 0001
  163. -- rect: left=380 top=10 right=54 bottom=508
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: New Button
  172.  
  173.  
  174. -- part contents for background part 2
  175. ----- text -----
  176.                                  
  177.                                  
  178.                                  
  179.                                  
  180.                                  
  181.                                  
  182.                                  
  183.                                  
  184.                                  
  185.